home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 September / 64er_Magazin_90-09_1990_Markt__Technik_de_Side_A.d64 / apfel + julia (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  61 lines
  1. 1000 rem mandelbrot/juliamengen-generator
  2. 1010 rem (c) 1990 by bernd wiebelt
  3. 1020 rem
  4. 1030 if a=0 then a=1:load "graphtool.obj",8,1
  5. 1040 if a=1 then a=2:load "mandelass.obj",8,1
  6. 1050 dim o1(320):dim o2(320)
  7. 1060 ya=199:xa=319:rem chr$rafikaufloesung
  8. 1070 print"[147]m)andelrot oder j)uliamengen
  9. 1080 [161]a$:[139]a$[178]"" [176] (a$[179][177]"m" [175] a$[179][177]"j") [167]1080
  10. 1090 [139]a$[178]"m" [167] mj[178]0
  11. 1100 [139]a$[178]"j" [167] mj[178]1
  12. 1110 [133]"realmin : ";ri
  13. 1120 [133]"realmax : ";ra
  14. 1130 [133]"imagmin : ";ii
  15. 1140 [133]"imagmax : ";ia
  16. 1150 [133]"maximale rekursionstiefe: ";mt
  17. 1160 xs[178](ra[171]ri)[173]xa:ys[178](ia[171]ii)[173]ya:[143] transformationskonstanten berechnen
  18. 1170 sy[178]0:[139] [182](ii)[178][182](ia) [167] sy[178]1:[143] symmetriecheck !
  19. 1180 [139] mj[178]0 [167] 1210
  20. 1190 [133]"reeller     c-teil : ";cr
  21. 1200 [133]"imaginaerer c-teil : ";ci
  22. 1210 [158] 49152:[158] 49158,0,1: [143] grafik-initialisierung
  23. 1220 [129] x[178]0 [164] xa:o1(x)[178]mt:o2(x)[178]mt:[130]
  24. 1230 [129] y[178]0 [164] ya:[143] punkt fuer punkt untersuchen
  25. 1240 l1[178]mt:l2[178]mt
  26. 1250 [129] x[178]0 [164] xa
  27. 1260 r[178]ri[170]x[172]xs:i[178]ii[170]y[172]ys
  28. 1270 [139] mj[178]0 [167] [158] 50688,0,0,r,i,4,mt:[143] mandelbrotrekursionen durchfuehren
  29. 1280 [139] mj[178]1 [167] [158] 50688,r,i,cr,ci,4,mt:[143] julia-rekursionen durchfuehren
  30. 1290 t[178][194](2)
  31. 1300 [139] t[179]mt [137] 1340:[143] maximale rekursionstiefe erreicht?
  32. 1310 [158]49167,x,y:[139] sy[178]0 [137] 1340
  33. 1320 [139] mj[178]0 [167] [158] 49167,x,ya[171]y
  34. 1330 [139] mj[178]1 [167] [158] 49167,xa[171]x,ya[171]y
  35. 1340 [139] (t[177][178]l1) [176] (l2[177][178]l1) [137] 1390:[143] linken und rechten nachbarpunkt testen
  36. 1350 [158] 49167,x[171]1,y
  37. 1360 [139] sy[178]0 [137] 1390
  38. 1370 [139] mj[178]0 [167] [158] 49167,x[171]1,ya[171]y
  39. 1380 [139] mj[178]1 [167] [158] 49167,xa[171]x[170]1,ya[171]y
  40. 1390 l2[178]l1:l1[178]t
  41. 1400 [139] (t[177][178]o1(x)) [176] (o2(x)[177][178]o1(x)) [137] 1450:[143] unt. und ob. punkt testen
  42. 1410 [158] 49167,x,y[171]1
  43. 1420 [139] sy[178]0 [137] 1450
  44. 1430 [139] mj[178]0 [167] [158] 49167,x,ya[171]y[170]1
  45. 1440 [139] mj[178]1 [167] [158] 49167,xa[171]x,ya[171]y[170]1
  46. 1450 o2(x)[178]o1(x):o1(x)[178]t
  47. 1460 [130] x:[139] sy[178]1 [175] y[177]ya[173]2 [167] y[178]ya
  48. 1470 [130] y
  49. 1480 [161] a$:[139] a$[178]"" [167] 1480
  50. 1490 [158]49155:[153]"loadbild abspeichern (j/n) ?"
  51. 1500 [161] a$:[139] a$[178]"" [167] 1500
  52. 1510 [139] a$[179][177]"j" [137] 1070
  53. 1520 [133] "filename : ";b$:[158]50694,b$,8
  54. 1530 [153]"das bild kann durch folgende"
  55. 1540 [153]"anweisungen wieder angezeigt werden:"
  56. 1550 [153]"sys 49158,0,1"
  57. 1560 [153]"sys 50691,";[199](34);b$;[199](34);",8"
  58. 1570 [153]"sys 49152"
  59. 1580 [161]a$:[139] a$[178]"" [167] 1580
  60. 1590 [137] 1070
  61.